home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
games
/
zmud455.zip
/
ZMUD.EXE
/
0
/
RCDATA
/
TPARENTFORM
/
TPARENTFORM.txt
< prev
Wrap
Text File
|
1997-04-13
|
24KB
|
851 lines
object ParentForm: TParentForm
Left = 152
Top = 130
Width = 692
Height = 509
ActiveControl = UserIn
Caption = 'zMUD'
Color = clGray
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
FormStyle = fsMDIForm
KeyPreview = True
Menu = MainMenu1
ShowHint = True
WindowMenu = Window2
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 16
object BackImage: TImage
Left = 232
Top = 56
Width = 96
Height = 96
AutoSize = True
Center = True
Picture.Data = {<image000.bmp>}
Visible = False
end
object Logo: TImage
Left = 344
Top = 56
Width = 32
Height = 32
AutoSize = True
Center = True
Picture.Data = {<image001.bmp>}
Visible = False
end
object Stat2: TImage
Left = 456
Top = 80
Width = 8
Height = 8
AutoSize = True
Picture.Data = {<image002.bmp>}
Visible = False
end
object Stat3: TImage
Left = 456
Top = 96
Width = 8
Height = 8
AutoSize = True
Picture.Data = {<image003.bmp>}
Visible = False
end
object Stat4: TImage
Left = 456
Top = 112
Width = 8
Height = 8
AutoSize = True
Picture.Data = {<image004.bmp>}
Visible = False
end
object Stat5: TImage
Left = 456
Top = 128
Width = 8
Height = 8
AutoSize = True
Picture.Data = {<image005.bmp>}
Visible = False
end
object Stat1: TImage
Left = 456
Top = 64
Width = 8
Height = 8
AutoSize = True
Picture.Data = {<image006.bmp>}
Visible = False
end
object Cassette: TImage
Left = 512
Top = 64
Width = 16
Height = 16
Picture.Data = {<image007.bmp>}
end
object Gun: TImage
Left = 512
Top = 88
Width = 16
Height = 16
Picture.Data = {<image008.bmp>}
end
object PC: TImage
Left = 512
Top = 112
Width = 16
Height = 16
Picture.Data = {<image009.bmp>}
end
object NoCass: TImage
Left = 536
Top = 64
Width = 16
Height = 16
Picture.Data = {<image010.bmp>}
end
object NoGun: TImage
Left = 536
Top = 88
Width = 16
Height = 16
Picture.Data = {<image011.bmp>}
end
object NoPc: TImage
Left = 536
Top = 112
Width = 16
Height = 16
Picture.Data = {<image012.bmp>}
end
object KeyIcon: TImage
Left = 512
Top = 136
Width = 16
Height = 16
Picture.Data = {<image013.bmp>}
end
object NoKeyIcon: TImage
Left = 536
Top = 136
Width = 16
Height = 16
Picture.Data = {<image014.bmp>}
end
object LogIcon: TImage
Left = 512
Top = 160
Width = 16
Height = 16
Picture.Data = {<image015.bmp>}
end
object NoLogIcon: TImage
Left = 536
Top = 160
Width = 16
Height = 16
Picture.Data = {<image016.bmp>}
end
object ComPanel: TPanel
Left = 0
Top = 441
Width = 684
Height = 22
Align = alBottom
BevelOuter = bvNone
TabOrder = 0
object HistPanel: TPanel
Left = 0
Top = 0
Width = 25
Height = 22
Hint = 'Command History|'
Align = alLeft
BevelOuter = bvLowered
TabOrder = 0
OnClick = Image1Click
object HistBtn: TSpeedButton
Left = 1
Top = 1
Width = 20
Height = 20
Hint = 'Show command history|'
Glyph.Data = {
D6000000424DD60000000000000076000000280000000C0000000C0000000100
0400000000006000000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
0000FFFFFFFFFFFF0000FFFFFFFFFFFF0000FFFFF0FFFFFF0000FFFF000FFFFF
0000FFF00000FFFF0000FF0000000FFF0000F000000000FF0000FFFFFFFFFFFF
0000FFFFFFFFFFFF0000FFFFFFFFFFFF0000FFFFFFFFFFFF0000}
OnClick = Image1Click
end
end
object UserIn: TMyEdit
Left = 25
Top = 0
Width = 607
Height = 22
Ctl3D = True
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier'
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 1
OnClick = UserInClick
History = True
Align = alClient
end
object IconBox: TIconPanel
Left = 632
Top = 0
Width = 52
Height = 22
Align = alRight
Alignment = taRightJustify
BevelOuter = bvLowered
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnMouseDown = IconBoxMouseDown
OnMouseMove = IconBoxMouseMove
OnPaint = IconBoxPaint
end
end
object Panel3: TPanel
Left = 0
Top = 438
Width = 684
Height = 3
Align = alBottom
TabOrder = 1
end
object MediaPlayer: TMediaPlayer
Left = 176
Top = 216
Width = 253
Height = 30
Visible = False
TabOrder = 2
end
object SpeedBar: TPanel
Left = 0
Top = 0
Width = 684
Height = 22
Align = alTop
BevelOuter = bvLowered
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
object SpeedButton1: TSpeedButton
Left = 1
Top = 1
Width = 78
Height = 20
Caption = 'Aliases'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
333333333333333333333333333333333333333333333333333333CCC3CCC333
CCC333333333333333333C33C3C33C3C3333333333333333333333CCC3C33C3C
333333333333333333333333C3C33C3C3333333333333333333333CC33CCC333
CCC33333333333333333333333C3333333333333333333333333333333C33333
33333333333333333333333333C3333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 79
Top = 1
Width = 78
Height = 20
Caption = 'Variables'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
333333333333333333333333333333333333333333333333333333CCCCC3C333
33C333333333333333333C333333C33333C333333333333333333C333C33C333
33C333333333333333333C3CC3C33CCCCC3333333333333333333C3CC3C33C33
3C3333333333333333333C3333C33C333C33333333333333333333CCCC3333C3
C33333333333333333333333333333C3C33333333333333333333333333333C3
C333333333333333333333333333333C33333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
OnClick = SpeedButton2Click
end
object SpeedButton3: TSpeedButton
Left = 157
Top = 1
Width = 78
Height = 20
Caption = 'Paths'
Glyph.Data = {
90010000424D9001000000000000760000002800000020000000100000000100
0400000000000001000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333003333303333333333333333333333333633333603
3333333333333333333333363333633333333333333333333333333366363333
0003333333333333333333333EC6333333333333333333333333333C366C3333
3333333333333333333333E3C6C6333000333333333333333333333336663333
33333333333333333333333333E333000333333333333333333333333EE03333
3333333333333333333333333E00333333333333333333333333333330003333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333000000000000
0000000000000000000000000000000000000000}
NumGlyphs = 2
OnClick = SpeedButton3Click
end
object SpeedButton4: TSpeedButton
Left = 235
Top = 1
Width = 78
Height = 20
Caption = 'Triggers'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
88888888888888888888888888888888888880000888888888888F7708888888
888888F770888888888888F7708777888888888F770800788888888F77080078
88888888F0000000000088887777777777708880FFFFFFFFFFFF888888888887
7788888888888888888888888888888888888888888888888888}
OnClick = SpeedButton4Click
end
object SpeedButton5: TSpeedButton
Left = 313
Top = 1
Width = 78
Height = 20
Caption = 'Keys'
Glyph.Data = {
10010000424D1001000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333300000000000033300888888888800330F888888888
880330FF88888888880330FF77777777780330FF70770777780330FF70770777
780330FF70000777780330FF70770777780330FF770077777803300F77777777
7003330000000000003333333333333333333333333333333333000000000000
0000000000000000000000000000000000000000}
OnClick = SpeedButton5Click
end
object SpeedButton6: TSpeedButton
Left = 391
Top = 1
Width = 78
Height = 20
Caption = 'General'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
33333333333333333333333000000003333333333333333333333330FFFFFF03
333333333333333333333330FF99FF03333333333333333333333330F9999F03
33333333333333333333333099FF9903333333333333333333333330FFFFF993
333333333333333333333330FFFFFF9933333333333333333333333000000009
9333333333333333333333333333333393333333333333333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
OnClick = SpeedButton6Click
end
object SpeedButton7: TSpeedButton
Left = 469
Top = 1
Width = 78
Height = 20
Caption = 'Colors'
Glyph.Data = {
90010000424D9001000000000000760000002800000020000000100000000100
0400000000000001000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333000000000000033300000000000003330DDD06660F
FF033308880888088803330DDD06660FFF033308880888088803330DDD06660F
FF03330888088808880333000000000000033300000000000003330BBB08880E
EE033308880888088803330BBB08880EEE033308880888088803330BBB08880E
EE033308880888088803330000000000000333000000000000033309990AAA0C
CC0333088808880888033309990AAA0CCC0333088808880888033309990AAA0C
CC03330888088808880333000000000000033300000000000003333333333333
3333333333333333333333333333333333333333333333333333000000000000
0000000000000000000000000000000000000000}
NumGlyphs = 2
OnClick = SpeedButton7Click
end
object SpeedButton8: TSpeedButton
Left = 547
Top = 1
Width = 78
Height = 20
Caption = 'Fonts'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
88888888CCCC8888888888888CC88888888888888CC88888888888888CC8C888
888888888CCCC888888889888CC8C880088889888CC88888808889888CC88C88
808889888CCCCC88808889888888888800088999888888888088898888888888
8088898888888888880089999888888888888888888888888888}
OnClick = SpeedButton8Click
end
end
object WindowSet: TTabSet
Left = 0
Top = 417
Width = 684
Height = 21
Align = alBottom
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Style = tsOwnerDraw
Visible = False
OnClick = WindowSetClick
OnDrawTab = WindowSetDrawTab
OnMeasureTab = WindowSetMeasureTab
end
object MainMenu1: TMainMenu
Left = 176
Top = 88
object File2: TMenuItem
Caption = '&File'
Hint = 'File menu'
ShortCut = 0
OnClick = File2Click
object ConnectionWizard1: TMenuItem
Caption = 'Connection &Wizard...'
GroupIndex = 105
Hint = 'Select a MUD to connect to from the master list'
ShortCut = 0
OnClick = ConnectionWizard1Click
end
object N8: TMenuItem
Caption = '-'
GroupIndex = 105
Hint = ' '
ShortCut = 0
end
object Connect1: TMenuItem
Caption = 'Another &Char...'
GroupIndex = 105
Hint = 'Open another character from the database in a new window'
ShortCut = 0
OnClick = Connect1Click
end
object Reconnect1: TMenuItem
Caption = '&Reconnect'
GroupIndex = 105
Hint = 'Reconnect to the current MUD character'
ShortCut = 0
OnClick = Reconnect1Click
end
object Disconnect1: TMenuItem
Caption = '&Disconnect'
GroupIndex = 105
Hint = 'Disconnect from the current MUD character'
ShortCut = 0
OnClick = Disconnect1Click
end
object N4: TMenuItem
Caption = '-'
GroupIndex = 105
Hint = ' '
ShortCut = 0
end
object NewLog1: TMenuItem
Caption = '&New Log...'
GroupIndex = 105
Hint = 'Open a new log file'
ShortCut = 0
OnClick = NewLog1Click
end
object AppendLog1: TMenuItem
Caption = '&Append Log...'
GroupIndex = 105
Hint = 'Append to an existing log file'
ShortCut = 0
OnClick = AppendLog1Click
end
object ToggleLog: TMenuItem
Caption = '&Log'
GroupIndex = 105
Hint = 'Toggle the logging to a file'
ShortCut = 0
OnClick = ToggleLogClick
end
object CloseLog1: TMenuItem
Caption = 'Close Log'
GroupIndex = 105
Hint = 'Close the log file'
ShortCut = 0
Visible = False
OnClick = CloseLog1Click
end
object N6: TMenuItem
Caption = '-'
GroupIndex = 105
Hint = ' '
ShortCut = 0
end
object PrintSetup1: TMenuItem
Caption = 'Print &Setup...'
GroupIndex = 105
Hint = 'Select a printer'
ShortCut = 0
OnClick = PrintSetup1Click
end
object Print1: TMenuItem
Caption = '&Print'
GroupIndex = 105
Hint = 'Print'
ShortCut = 0
object Buffer1: TMenuItem
Caption = '&Buffer'
Hint = 'Print entire scrollback buffer'
ShortCut = 0
OnClick = Buffer1Click
end
object Selected1: TMenuItem
Caption = '&Selected'
Hint = 'Print selected portion of buffer'
ShortCut = 0
OnClick = Selected1Click
end
object Screen1: TMenuItem
Caption = 'Scree&n'
Hint = 'Print current screen'
ShortCut = 0
OnClick = Screen1Click
end
object Scrollback1: TMenuItem
Caption = 'Scro&llback'
ShortCut = 0
OnClick = Scrollback1Click
end
object N7: TMenuItem
Caption = '-'
Hint = ' '
ShortCut = 0
end
object Color1: TMenuItem
Caption = 'Color'
Hint = 'Toggle color vs black/white printing'
ShortCut = 0
OnClick = Color1Click
end
end
object PrintScreen1: TMenuItem
Caption = 'PrintScreen'
GroupIndex = 105
Hint = 'Print the screen'
ShortCut = 16464
Visible = False
OnClick = PrintScreen1Click
end
object N3: TMenuItem
Caption = '-'
GroupIndex = 105
Hint = ' '
ShortCut = 0
end
object Exit2: TMenuItem
Caption = 'E&xit'
GroupIndex = 105
Hint = 'Leave zMUD'
ShortCut = 0
OnClick = Exit1Click
end
end
object Window2: TMenuItem
Caption = '&Window'
GroupIndex = 9
Hint = 'Window menu'
ShortCut = 0
OnClick = Window2Click
object Tile2: TMenuItem
Caption = '&Tile'
GroupIndex = 61
Hint = 'Tile all windows'
ShortCut = 0
OnClick = Tile1Click
end
object Cascade2: TMenuItem
Caption = '&Cascade'
GroupIndex = 62
Hint = 'Cascade all windows'
ShortCut = 0
OnClick = Cascade1Click
end
object Arrange2: TMenuItem
Caption = '&Arrange'
GroupIndex = 63
Hint = 'Arrange minimized window icons'
ShortCut = 0
OnClick = Arrange1Click
end
object Next1: TMenuItem
Caption = 'Next'
GroupIndex = 64
Hint = 'Select next window'
ShortCut = 16462
Visible = False
OnClick = Next1Click
end
object Prev1: TMenuItem
Caption = 'Prev'
GroupIndex = 65
Hint = 'Select previous window'
ShortCut = 0
Visible = False
OnClick = Prev1Click
end
object N5: TMenuItem
Caption = '-'
GroupIndex = 66
Hint = ' '
ShortCut = 0
end
object Freeze1: TMenuItem
Caption = 'S&plit'
GroupIndex = 67
Hint = 'Freeze or un-freeze the window scrolling'
ShortCut = 16474
OnClick = Freeze1Click
end
object Refresh1: TMenuItem
Caption = '&Refresh'
GroupIndex = 68
Hint = 'Refresh the current window display'
ShortCut = 0
OnClick = Refresh1Click
end
object Clear1: TMenuItem
Caption = 'C&lear'
GroupIndex = 68
Hint = 'Clear the screen by scrolling'
ShortCut = 16460
OnClick = Clear1Click
end
object Empty1: TMenuItem
Caption = 'Empty'
GroupIndex = 68
Hint = 'Clear the current window and its scrollback buffer'
ShortCut = 0
OnClick = Empty1Click
end
object N2: TMenuItem
Caption = '-'
GroupIndex = 70
Hint = ' '
ShortCut = 0
end
object History1: TMenuItem
Caption = '&History...'
GroupIndex = 71
Hint = 'Display the command history window'
ShortCut = 0
OnClick = History1Click
end
object CommandBuffer2: TMenuItem
Caption = '&Editor...'
GroupIndex = 72
Hint = 'Display the multi-line command buffer editor'
ShortCut = 0
OnClick = CommandBuffer2Click
end
object Status1: TMenuItem
Caption = '&Status'
GroupIndex = 72
Hint = 'Display the status window'
ShortCut = 0
OnClick = Status1Click
end
object AutoMapper1: TMenuItem
Caption = 'Auto&Mapper'
GroupIndex = 72
Hint = 'Display the automapper module'
ShortCut = 0
OnClick = AutoMapper1Click
end
end
object Help1: TMenuItem
Caption = '&Help'
GroupIndex = 10
Hint = 'Help menu'
ShortCut = 0
object Contents1: TMenuItem
Caption = 'Con&tents'
GroupIndex = 101
Hint = 'Display the contents of the help file'
ShortCut = 0
OnClick = Contents1Click
end
object Search1: TMenuItem
Caption = '&Search'
GroupIndex = 102
Hint = 'Search the online help file'
ShortCut = 0
OnClick = Search1Click
end
object Reference1: TMenuItem
Caption = '&Reference'
GroupIndex = 103
Hint = 'Display the command reference page of the help file'
ShortCut = 0
OnClick = Reference1Click
end
object GettingStarted1: TMenuItem
Caption = '&Getting Started'
GroupIndex = 104
Hint = 'Display the Getting Started section of the help file'
ShortCut = 0
OnClick = GettingStarted1Click
end
object N13: TMenuItem
Caption = '-'
GroupIndex = 106
Hint = ' '
ShortCut = 0
end
object CommandWizard1: TMenuItem
Caption = '&Command Wizard...'
GroupIndex = 106
Hint = 'Get help on a zmud command'
ShortCut = 0
OnClick = CommandWizard1Click
end
object FunctionWizard1: TMenuItem
Caption = '&Function Wizard...'
GroupIndex = 106
Hint = 'Get help on a zMUD function'
ShortCut = 0
OnClick = FunctionWizard1Click
end
object N1: TMenuItem
Caption = '-'
GroupIndex = 109
Hint = ' '
ShortCut = 0
end
object StartupScreen1: TMenuItem
Caption = 'Startup Screen...'
GroupIndex = 110
Hint = 'Display the initial startup screen'
ShortCut = 0
OnClick = StartupScreen1Click
end
object SendFeedback1: TMenuItem
Caption = 'Send &Feedback...'
GroupIndex = 111
Hint = 'Send a bug report or suggestion to Zugg'
ShortCut = 0
OnClick = SendFeedback1Click
end
object Register1: TMenuItem
Caption = '&Register...'
GroupIndex = 111
Hint = 'Enter your registration code'
ShortCut = 0
OnClick = Register1Click
end
object About1: TMenuItem
Caption = '&About...'
GroupIndex = 111
Hint = 'Display the About dialog containing copyright and credits'
ShortCut = 0
OnClick = About1Click
end
end
end
object StartupTimer: TTimer
Enabled = False
OnTimer = StartupTimerTimer
Left = 176
Top = 56
end
object SaveLogDialog: TSaveDialog
DefaultExt = 'txt'
FileEditStyle = fsEdit
Filter = 'Text Files|*.txt|All Files|*.*'
Left = 176
Top = 120
end
object zmud: TDdeServerConv
OnExecuteMacro = zmudExecuteMacro
Left = 296
Top = 168
end
object data: TDdeServerItem
ServerConv = zmud
OnPokeData = dataPokeData
Left = 336
Top = 168
end
object DdeClientConv1: TDdeClientConv
ConnectMode = ddeManual
Left = 384
Top = 168
end
object DdeClientItem1: TDdeClientItem
DdeConv = DdeClientConv1
Left = 424
Top = 168
end
object MenuTimer: TTimer
Enabled = False
OnTimer = MenuTimerTimer
Left = 176
Top = 288
end
object PrintSetup: TPrinterSetupDialog
Left = 216
Top = 288
end
object PrinterDlg: TPrintDialog
MinPage = 1
MaxPage = 1
Options = [poPageNums, poSelection]
Left = 248
Top = 288
end
object HistMenu: TPopupMenu
AutoPopup = False
Left = 80
Top = 304
end
end